home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / -commercial- / pp71b_68020 / install < prev    next >
Text File  |  1999-07-12  |  2KB  |  59 lines
  1. ; $VER: InstallPP71B_CPU_Update 1.0
  2. ; Cloanto PPaint 7.1b CPU Update Installer Script
  3. ; Copyright © 1996, 1997, 1999 Cloanto Italia srl
  4. ; Cloanto is a registered trademark of Cloanto Italia srl
  5. ; "Installer and Installer project icon Copyright © 1991-1993 Commodore-Amiga, Inc. All Rights Reserved
  6. ;  Reproduced and distributed under license from Commodore"
  7. ; New installer icon design Copyright © 1994 Cloanto Italia srl
  8.  
  9. (set #which-dir
  10.     "Please indicate the directory where Personal Paint 7.1b is installed:")
  11.  
  12. (set #which-dir-help
  13.     (cat "\nThis program updates the 68000 version of the \"PPaint\" 7.1b program file to a version optimized for 68020 and higher CPUs."
  14.     "\n\nPlease specify the full path of the installed Personal "
  15.     "Paint software, including the final \"PPaint\" directory name "
  16.     "(or other, if a different drawer name was used).\n\n"
  17.     @askdir-help))
  18.  
  19. (set #message-ppaintnotok
  20.     "\nThis update was not designed for the selected Personal Paint program file. It will not be updated. See the Readme for additional information.")
  21.  
  22. (set #error-ppaint
  23.     "\nPersonal Paint 7.1b program file could not be found. It will not be updated.")
  24.  
  25. (set #busy-ppaint
  26.     "Updating Personal Paint 7.1b program file.")
  27.  
  28. (if (AND (<> (getassign "PSUITEROOT" "a") "") (<> (getassign "KARACDROOT" "a") "")) (set ppaint_dest "") (set ppaint_dest (getassign "PPaint" "a")))
  29. (if (<> (getassign "PCDPPAINT" "a") "") (set ppaint_dest (getassign "PCDPPAINT" "a")))
  30. (if (AND (<> (getdevice ppaint_dest)(getdevice "RAM:"))(< (getdiskspace ppaint_dest) 10240)) (set ppaint_dest ""))
  31. (if (= ppaint_dest "") (set ppaint_dest @default-dest))
  32.  
  33. (set ppaint_dest (askdir
  34.     (prompt #which-dir)
  35.     (help #which-dir-help)
  36.     (default ppaint_dest)
  37.     (newpath)
  38. ))
  39.  
  40. (set target1 (tackon ppaint_dest "PPaint"))
  41. (if (<> (exists target1) 1) (if (= (exists target1) 2) (set ppaint_dest target1)))
  42. (set @default-dest ppaint_dest)
  43.  
  44. (set target1 (tackon ppaint_dest "PPaint"))
  45. (if (<> (exists target1) 1) (message #error-ppaint) (
  46.     (if (<> (getsize target1) 684996) (message #message-ppaintnotok) (
  47.  
  48.         (if (= (getsize target1) 684996) (
  49.             (working #busy-ppaint)
  50.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -p68000to68020.pch \"" target1 "\""))
  51.             (run runstring)
  52.         ))
  53.  
  54.         (exit)
  55.     ))
  56. ))
  57.  
  58. (exit (quiet))
  59.